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COLOFON 


DAInamic verschijnt tweemaandelijks. DAINAM. 


abonnementsprijs is inbegrepen in de PERSONAL COMPUTER USERS CLUB 


jaarlijkse contributie : 750 Bfr. 


Bij toetreding worden de verschenen 
| | 4 J з | 2] 1 | 
nummers van de jaargang toegezonden. |ва pee |нехіоюо ugxIpscugx]ugc | 


DAInamic redactie 


Dirk Bonné 

Freddy De Raedt 
Wilfried Hermans 
René Rens 

Jos Schepens 
Roger Theeuws 
Bruno Van Rompaey 
Jef Verwimp 
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Vormgeving : Ludo Van Mechelen. 
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U wordt lid door storting van de 


contributie op het rekeningnr. 





Е 
230-0045353-74 van de Generale Bank- рабів юною 8 8 
maatschappij, Leuven, via bankinstel- TAB 9 9 
li А linefeed A 10 
ing of postgiro clear screen С 12 
Het abonnement loopt van januari tot CURSOR UP 10 16 
CURSOR DOWN 11 17 
E GENET CURSOR LEFT 12 18 
CURSOR RIGHT 13 19 
DAInamic verschijnt де pare maanden. space-bar 20 32 
Bijdragen zijn steeds welkom. Й 30 48 
2 g 1 eecs m A 41 65 
CORRESPONDENTIE ADRESSEN. а 61 97 
| pijltje rechts 89 737 
Redactie еп software bibliotheek pijltje links 88 136 
Wilfried Hermans pijltje boven SE 34 
Herde A pijltje onder 8C 140 
B 3171 Westmeerbeek volle blok ` FF 255 
Belgié verticale lijn A 10 
horizontale lijn B 11 
tel. : 016/69.86.23 6 hor.lijnen 1D 29 
Kredietbank Westmeerbeek 
nr. 406-3016141-33 ASCII - HEX - ASCII CONVERSION TABLE 
BTW : 420.840.834 
Lidgelden 


Bruno Van Rompaey 
Bovenbosstraat 4 
B 3044 Haasrode 
België 


tel. : 016/46.10.85 


Generale Bankmaatschappij Leuven 
nr. 230-0045353-74 


Inzendingen : Games & Strategy 


to. +|* — — - v w Hs - 


Frank Druijff 

"5 Gravendijkwal 5A 
NL 3021 EA Rotterdam 
Nederland 


tel. : 010/25.42.75 
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DAI - 


PERSONAL COMPUTER USERS CLUB 


Westmeerbeek feb 82 


| intern te verzorgen.De kwaliteit van het drukwerk zal er 
пи wel houden aan afspraken die in de drukkerswereld 
aantal pagina's NOD 14 = à, 


54 pagina’s aan te bieden, zonder reclame, 








aber hadden we weer het HCC-geheuren.Door de beschikbare ruiate in de Julianahal ging het er 
stiger aan tue dan vorig jaar in "t turfschig.Buiten de druk bezochte DAlnamic-stand was er 
er voor DAl-gebruikers nog meer te bekijken : de fraai verzorgde show bij МЕМОСОМ en het piep- 
standje van vader en zoon De Vries Hier kregen we sublieme VIGITEL-desanstraties ‚heer nieuws 
it programma krijgt U verder in dit nummer. š 


іі op de populaire computerdag in Rosendaal „niet zo druk maar toch 







p de volgende pagina's hoe je de contrihutie voor 1982 kan regelen, 

ijk in orde zodat we onze oplage kunnen vaststellen Nieuwe leden kunnen 

10/31" als er genoeg interesse is kunnen we dit werkje laten drukken. 
i zorgen ? (neem contact met de redactie, zodat we alle 


er voor DAI erg veel uitstekende software к 
oftware te verkrijgen is binnen de club, aan redelijke 
se gebruikersgroepen wordt het aanbod nog groter, 


steeds de productiecapaciteit van DAI te overtreffen, Het street- 
ñ per maand te zijn.Er wordt veel gepraat over het nieuwe toestel 
iseparaat toetsenbord, [EEE-iterfate vervangt het SQUND-gedeelte, 
в schijf met dubbele density en ..ingehouwde hard-disc,dat klinkt 


йр zaterdag 18 april houden we onze jaarlijkse Б 


j š : ijeenkoast in de lokalen van Tongelshos 
anger lû, Deelnemers of handelaars die ruiate wil і а 


len reserveren dienen dit voor 


gsstraat 2 
1 aan te 


j 2 
і ргі 
veel lees- en toetenlezier met nummer 7 


ise не gave the big job ta a printing-business,Size and volume of the newsletter have 
capacity of the redactional staff and our machines. We hope this also will improve 


Шак 
г 
"oct 


Further on, aur tr 
Even if vou h i 
it is a good 


went onm 
prm 


he meshership fee for 1982 and how to ay it... 
b hope you will renew your subscription,we think 


Ë 
The mare ideas,the better our magazine), 


Wilfried Hergans 
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|+ ++ ++AANDACHT++++++ATTENTION++4+4++4+ +++ | 


Dit is het laatste nummer dat we aan de 1981-leden zenden. 





Zij die hun lidmaatschapsbijdrage voor 1982 niet betaalden zullen DAIna- 
mie niet meer ontvangen. 


Deze die één en ander vergeten zijn. Ter herinnering: 


Betalingswijzen: 
normale post : 750 BF (Belgie en Nederland) 850 ВЕ (andere landen) 
luchtpost : 1100 BF ор uw overschrijving vermeiden "LUCHTPOST" 


Kas: Belgisch geld of 50 gulden of 50 DM 
cheque: alleen uitschrijven in Belgisch geld 


bankoverschrijving op rekeningnummer: 


230 - 0045353 - 74 
van de Generale Bankmaatschappij Leuven t.a.v. DAInamic 
postoverschrijvings gebruik de postrekening van де Сепе- 
rale Bank Leuven, Dit | ALLEEN VOOR POSTOVERSCHRIJ- | 
000 - 0000982 - 12 VINGEN VANUIT HET BUITENLAND 


en schrijf expliciet op uw betalingsformulier: 


| "OVERBOEKEN OP NUMMER 230-0045353 - 74 VAN DAINAMIC" | 


De voorraad DAInamic-nieuwsbrieven van 1981 is uitgeput, We zullen weldra 

de beste artikels in boekvorm bundelen en aanbieden, U kan hierop nu reeds 
intekenen met onderstaande strook, Opsturen naar: Bruno Van Rompaey 
Bovenbosstraat 4 3044 Haasrode Belgie 

Alle briefwisseling in verband met uw lidmaatschap (nieuw adres...) opsturen 


naar hetzelfde adres. 


This is the last issue we'll send to the 1981-members. Those who didn't pay 

the membership-fee for 1982 won't receive DAInamic anymore, For those who 

have forgotten to renew their membership: 

Kinds of payment: normal mail: 750 BF (Belgium - Netherlands) 850 (other 

— air mail: 1100 BF : give the message "AIRMAIL" countries) 


а. Cash : Belgian money ог 50 DM or 50 gulden 
b. Check : please only use Belgian money 
c, Bank-order: number: 
230 - 0045353 - 74 Generale Bank Leuven c.o, DAInamic 





[ + +++ +4++4+ATTENTION++++AANDAGHT+++++4+4+4+4+4++4 + | 


d. Postal-orderjuse the post-accountnumber of the Generale Bank Leuven. 






This number is : 000 - 0000982 - 12 


If you u$e this kind of payment write explicit on your order: 


| "OVERBOEKEN OP NUMMER 230 - 0045353 - 74 VAN DAINAMIC" | 


This kind of postal order is only allowed for postal-orders 
FROM ABROAD 






There are no more issues of 1981 available, 
Soon we'll collect the best of DAInamic 1981 in one book, You can order this 


book by subscribing at the bottom of this page. Please send it to 


Bruno Van Rompaey 
Bovenbosstraat 4 
3044  HAASRODE 


Belgium 


All membership-correspondence (new address...) can be sent to the same 




















address. 
inschrijving BEST OF DAInamic 1981 
NAAM : 
STRAAT : 
WOONPLAATS: LAND : 
Zend mij exemplaar (exemplaren ) van The best of DAInamic. 
Eenheidsprijs: 250 ВЕ 
Handtekening 
subscription BEST OF DAInamic 1981 
NAME : 
STREET : 
CITY : COUNTRY : 
Please send me copy (copies) of The best ої DATnamic。 


Unit-price: 220 ВР 
Signature 





gmg бо. 








THE DAI MATH. FACKAGE. 


デー デニ デー デーー デ ーーー ニー ニー ニー ニニ ニニ ニニ ーー ニー ニー 


THE VARIOUS FUNCTIONS OF THE MATH. PACKAGE ARE CALLED VIA 
KNOWN METHODE OF: | 

RST 24 

DATA ХХ 


THE VALUES OF THE DATA BYTE AND THE FUNCTIONS THEY PERFORM 
ARE LISTED BELOW. THE VALUES ARE VALLID FOR BOTH WITH AND 
WITHOUT HARDWARE MATH MODULE. THE RESTART ROUTINE 
AUTOMATICALY SELECTS THE CORRECT ENTRY POINTS. THE ADDRESS 
OF THE ACTUAL CALL ARE ALSO LISTED. 


DATA CALL  CALL+ FUNCTION 


290 EDAA E474 FLOATING POINT ADD. (X) + СУ) 












103 EDB4 E479 FLOATING POINT SUBTRACT. (xX) 一 СУ) 
106 `  EOFE EA7E FLOATING POINT MULTIPLY. (X) X (Y) 
:09 E108 E483 FLOATING POINT DIVIDE. (X) / (Y) 
:0C Е112 E588 ENTER FROM (HL) 

:OF E11C E599 GET RESULT IN MEMORY (HL) 

212 E126 Et ENTER FROM REGISTERS A,B,C,D 

215 E133 ESAF GET RESULT IN REGISTERS A,R,C,D 

:18 E140 E488 ARS (CX) 

:1B E144 E493 CHANGE SIGN. (X)*(-1) 

:1Е E443 E498 FLOATING POINT INT(X) 

:21 E154 E4A0 FLOATING POINT FRAC (X) 

724 Е855 EDA1 (X) ^ (Y) 

:27 E745 EAR1 LN(X) 

:2А E667 E4B6 EXP(X)  e^tX) 

:2D E870 EARB LOGT (X) 

:30 E880 EACO ALOG (X) 

:53 ЕЗЕВ E4CC SOR (X) T Tm. знан ٿه ا‎ АЛ a mar pe E 
: 39 5709 Е406 COS СХ) ーー З 
:3C E894 EADB. TAN(X) kon 

: 3F E96C E4EQ ASIN(X) 

242 E9C1 E4E5 ACOS (x) 

245 EBAC EAEA ATAN(X) i 

148 E414 E4EF CONVERT FROM FLOATING ТО INTEGER. 
:4В E さ DE Е4ОВ CONVERT FROM INTEGER ТО FLOATING. 
:4Е E16D . E4F4 INTEGER ADD. OO + (Y) 

:51 E18D EAF9 INTEGER SUBTRACT. (X) 一 (Y) 
:54 E1AC E4FE INTEGER MULTIPLY. | (X) E (Y) 
:57 E22BR E503 INTEGER DIVIDE. (X) / (ei 
:5а E238 E508 INTEGER DIVIDE REMAINDER. 4X) / (Y) 
s 5D E さ QB Е517 INTEGER ARBS(X). 

260 E315 E522 INTEGER CHANGE SIGN. (X) ж (-1) 
263 ES2E ED19 (X) IAND (Y) 

:66 E345 ED2 (X) IOR (Y) 

:69 ESSC ED ささ (X) IXOR (Y) 

:6С E373 ED43 COMPLEMENT (X) 

:6F ESAS EDAC SHIFT (X) LEFT (Y) PLACES 

:72 E398 ED55 SHIFT (X) RIGHT (Y) PLACES 


РЕ Р Ss rn on ーーー ーー ーー ニーーーーーーーーーー —— — ren eee cem a cm с“ 





USING THE MATH. ROUTINES. 


BEFORE CALLING ONE OF THE FUNCTIONS THE FIRST OPERAND HAS TO 

BE ENTERED INTO THE MATH ACCUMULATOR. FOR THIS TWO FUNCTIONS 

ARE PROVIDED: 

A. THE 4 BYTE NUMBER IS PREVIOUSLY LOADED IN THE 
REGISTERS A-B-C-D (A= MOST SIGNIFICANT) 


CALL RST :4 
DATA :12 ENTER FROM REGISTERS 


в. THE ADDRESS OF THE NUMBER IS LOADED ІМ 
REGISTER PAIR (HL). 


CALL LXI H, NUMBER 
RST :4 
DATA sot ENTER FROM MEMORY 


THE SECOND OPERAND (IF NEEDED) IS ALWAYS PASSED TQ THE 
ARITHMETIC BY LOADING ITS ADDRESS IN (HL) FIRST. 


LXI H, NUMBR2 
RST 74 
DATA : 4E INTEGER ADD 


AFTER ABOVE CALLS NUMBR2 IS ADDED TO NUMBER. THE RESULT | 
STILL RESIDES IN THE ARITHMATIC ACCUMULATOR. NOW WE CAN CALL 
OTHER FUNCTIONS TO BE PERFORMED ON THIS RESULT OR RETRIEVE 
THE RESULT. 

TO OBTAIN THE RESULT TWO CALLS ARE PROVIDED: 

RST + DATA :15 WILL BRING THE RESULT ІМ REGISTRS A,B,C,D 


RST + DATA :OF WILL LOAD THE RESULT IN MEMEORY ADDRESSED 
BY (HL). 


FOLLOWING AN EXAMPLE 


START ІХІ H., INMBRi INTEGER NUMBER 


RST :4 
DATA :0C ENTER NUMBER 1 

RST 24 
DATA :4B CONVERT TO FLOATING РОІМТ 
RST 24 

DATA :33 SQUARE ROOT 

LXI H, RESLT 1 

RST :4 | 

DATA zor ` STORE RESULT ІМ RESLT1 
LXI H,FNMER FLOATING POINT NUMBER 

RST 24 | 

DATA soo ADD IT TO PREVIOUS RESULT 
RST 24 I 
DATA 15 ARITH RESULT IN A,B,C,D 
зано ETC БІОС. 








DCE-BUS CONNECTIONS 


P2B6 
P2B7 


EXINTR 
IN7 
EXRESET" 


+12V 
+5V 
ー5V 
GND 


INTR 
ІМ; 
NC 


ーー ニニ ニー テニ ニー ニテ ニー ニー ニー ニー ニー ニー ニニ ニー ニニ ニー ニー ニー ニー ニニ ニー ニー テ ニー ニニ ニー ニニ ーー ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ = 


DESCRIPTION P.C. PINE R.W.C. PIN# 
52253594594: ЖЖЖЖЖЖЖЖЖ ЖХЖЖЖЖЖХЖЖЖЖЖ 
GIC PORT О ВІТ Q 16 24 
GIC PORT O ВІТ 1 14 26 
GIC PORT O RIT 2 12 28 
GIC PORT О ВІТ 3 10 30 
GIC PORT О ВІТ 4 9 29 
GIC FORT О ВІТ 5 11 27 
GIC PORT О ВІТ 6 15 25 
GIC PORT Q ВІТ 7 15 23 
GIC PORT 1 ВІТ О 50 12 
GIC PORT 1 BIT 1 51 10 
GIC PORT 1 ВІТ 2 32 8 
GIC PORT 1 BIT 3 23 7 
GIC PORT 1 BIT 4 24 9 
GIC PORT 1 ВІТ 5 25 11 
GIC PORT 1 ВІТ 6 22 is 
GIC PORT 1 BIT 7 21 15 
GIC PORT 2 BIT Q 26 18 
GIC PORT 2 BIT 1 27 17 
GIC PORT 2 ВІТ 2 28 16 
GIC PORT 2 BIT 3 29 14 
GIC PORT 2 BIT 4 20 19 
БІС PORT 2 ВІТ 5 19 20 
GIC PORT 2 ВІТ & 18 21 
GIC PORT 2 BIT 7 17 22 
EXTERNAL INTERUPT & 4 
PARALLEL INPUT RIT 7 5 3 
EXTERNAL RESET (NEG) 7 5 
+12 V DC 2 2 
+5 V DC 1 51 
-5 M DC 3 1 
GND (OV DC) 4 6 
8080 INTR-PIN 14 33 NA 
PARALLEL INPUT ВІТ 7 34 NA 
NOT CONNECTED 8 NA 


I am designing а 8 inch floppy for my DAL, Can someone help ? 
Peter Jongen 7eemanhof 25 2871 JW Schoonhoven Nederland 


PERSONAL COMPUTER AND RW-CARDS. 


DCE FUNCTION 


252535234444: 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DEV. 
DEV. 
DEV. 
DEV. 
CARD 
CARD 
CARD 
CARD 


BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 


ADDR 
ADDR 
ADDR 
ADDR 
ADDR 
ADDR 
ADDR 
ADDR 


"d Ob A FY = O 


ANF O س لم ل‎ O 


BUS EXPAND 


WR LLI 
RD и 


(NEG) 
(NEG) 


NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 


EXINTR 


ІМ? 


EXRESET" 


+12V 
+5V 
-5V 
GND 


NON EXISTENT 
NON EXISTENT 
NON EXISTENT 


Which English family,preferably in London or other town where language courses 


can be followed, is willing to have Just van Dunne,aged 17, as a paying quest 


for three weeks in duly or August 1982, 


Please reply to : H,van Dunne,Hoflaan 70,3082 JJ Rotterdam Netherlands. 


. The card works correctly, anly w 


10 
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SERIAL - 


ЕШЕ ЕР 
PARALLEL OUT 
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EREA зов cece IRENE 
ce RR 


Se 1 = PARITY ERROR 
LED [7454] ] 2 ш FRAME ERROR 
oM DES (ыды ЖЕЙИН s ы З = DUERRUH ERROR 
з 34 YY ae Zeen 4 = DATA READY 


4r LED CODE 
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РІМ CONNECTIONS £ 





Parallel cable (fram left to might) s 





~ brown = busy 1 = O volt FC 

~ red = АЕМ (поса serial іп 

^ Orange = data busy out | 
~ yellow = data + 12 volt, 
ー green = de 

blue = 
ー violet = 
— 4 ғ e v ши 
— white = 
7 black = 
brown = 
- red = 





FOR 






N COPY 





EG ЗЕ 
84 EB 
QU OS 
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SOO NP Ob E) 
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DO TORP 
Technicalc А Di oo FD ES 





io AA б FF 
- needs no software 

~ speed adjustable fram ЕО to 94500 baud 

ー 1 ок 2 stop-bits : 

T7 used for grafica EPSON (MXSGO-II,92,100)2, 
BSO,MICROLINE a.c. 

















ー error-codes s- liparity кк 
frame error 
I averen error (rt 


data ready (green led) 








On the card з there is a 20 Eohm trimmer. You can adjust 
the clock speed by turning on the trimmer, Ву extremely 
temperature variations , it may be аку to adjust 
the trimmer. The exact frequency i gout 15600 Hz, 

s green LED is 
ay out. 













flashed , and the middle red LED 


“Jal cable (fram і to Б) 
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CALL MIESOO 


qu 
EA 
CD 97 
97 OF 
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oo 32 O6 
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5 December 1981 зо, Marlingford Way, 
Easton, 

W. Hermans, Norwich, 

DAInamic, Н Norfolk, NRS SHB. 
Heide 98, England. 

3171 Westmeerbeek, 

Belgium, 





Dear Mr. Hermans, 


Firstly, happy Christmas and new year to you. Please 
accept my appologies for writing to you in English. 
Thank you for sending me DAInamic Мо. 5 7, апа 
recently DAInamic No. 8. 

I am writing to you in the hope that you can give me 
some advice in connection with a program problem that I 
cannot solve. I am presently writing a banking program 
where data is held in arrays, these being “SAVEA?” on tape 
so that later this data can be "1040867 back into the main 
program to be brought up to date. I have condensed the 


problem and this is illustrated in the program "PROBLEM" 
saved after this letter. The fault occurs when using 
large ARRAYS and makes the program run slow. The program 
I have sent you can be split into three parts ミー 


. FOR NEXT loop 


1 
2. Fill ARRAY A$ .... ( RND Characters ) 
5. FOR NEXT loop 


x O) The routine in the first FOR NEXT loop is identical with 
| the routine in the second, however the second loop runs 
much slower than the first. Why does this happen and can 
" you tell me how to avoid this ? 
© I have also been experimenting with altering the line 
control address bytes ( from #7A to #77 ) to obtain 34 
lines per screen page, which is useful. I have tried to 
Gi to change the screen from 4 colour to 16 colour 
characters by altering the line control bytes from #7A бо 
#FA, as implied on page 16/17 of the DAI Р.С. manual, but 


with no sucess. До you know how to have more than 4 
colour characters on ane character line ? | 

I have enjoyed reading DAInamic very much, but would 
like to know if there are any English translations 
available ? I had DAInamic 3 translated, but it was very 
expensive and I can not afford to have others done. 
Could you let me know if anyone in England is thinking 
of organising something like this ? 


Yours sincerely, 


Colin Hards ee 
ge 


g ҒҰА б ий"! 
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100 
110 
120 
200 
210 
220 
250 
240 
зоб 
S10 
220 
лоб 
410 
420 
450 
450 
450 
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100 


116 
120 
200 
210 
220 
250 
240 
300 
510 
220 
4600 
410 
420 

хо 
450 


460 


PAGE 
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Ct 
оз 


= 
і-й 


во 
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t 

110 
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REM ..... PROGRAM TO DEMONSTRATE PROBLEM P u ..... 
CLEAR 10000: DIM A$(3.0,3.0,3.0,3.0) 

КЕМ vane NN tes routine to fill screen....... Tia 

PRINT CHR#(12):FOR し メー1 ТО 23:FOR Су-о TO 58 

РКІМТ СНН%(127) МЕХТ:ІРКІМТ :NEXT:PRINT CHR£(12) 

КЕМ: алела а 2% routine to fill ARRAY........... 

FOR AZ=0 TU 3:FOR BZ-O TO З:БОБ DZ-O TO S:FÜR EX=0 ТО = 
ñ$ (A%, BA, DZ, EZ) =CHRS (INT (RND (Zé. 0) +45. 0) ) 


PRINT " AEC" зах" De Bien, "DAR", "ЗЕ ="5 A$ (AZ, BZ, DA, ЕУ) 
NEXT EX:NEXT DZ:NEXT BZ:NEXT AX 
REM 22-252 routine to fill screen.......... 


PRINT CHRS$(i2):FOR LX-1 TO 23:FOR Су-о TO 58 
PRINT CHRE {12713 МЕХТ:РКІМТ :NEXT:PRINT СНЕФ (12) 


REM ce oe ew an в же Comment............. анығы а лала раты 

PRINT " NOTE THE TIME TAKEN TO RUN LINES 100-120, COMPARED" 

PRINT " WITH LINES 300-320, NEARLY 4x AS LUNG. THE SAME DELAY" 

PRINT " OCCURS WHEN USING 1,2,0R Z DIMENTIONED ARRAYS ТО A" 

PRINT “ SMALLER DEGREE. CAN YOU SUGGEST A SOLUTION SQ THAT" 

PRINT " THIS DOES NOT OCCUR { WHILE KEEPING THE FILLED ARRAY ) 7" 
‘A SOLUTION.... 

REM ..... E T NNNM PROBLEM . | ..... 

CLEAR 10000XT$-CHR$ (127)): DIM А%Ф%5.0,5.0,5.0,5.0) 

КЕМ о, зро routine モロ till screen.......... 


PRINT (т) ;NEXT:PRINT :МЕХТ:РКІМТ СНЕФ (12) 

REM ......... routine to fill ARRAY........... 

FOR AZ-O TO Z:FOR BZX-O TO 3:FOR DZ=Q TO 3:FOR EX-O TO = 
AS (AZ, BA, DZ, ЕХ? =CHRS (ІМТ (RND C26. 0) +65. 0) ) 


PRINT Tah kNEXTsPRT L*X-1 TO 23:FOR CZ-O TO 58 


FRINT " ASC" SEALS". "BZ; "a Әри," Ел "DE" A$ (AZ, RZ, DA, EZ) 
NEXT EX:NEXT DZ:NEXT RZ:NEXT AZ 
REM аа a routine to fill screen.......... 


PRINT CHR$(12):FOR LZ-1 TO 23:FOR CZ=O ТО 58 
PRINT : NEXT: PRINT :МЕХТ:РКІМТ CHR$(12) 


REM здала нок Ж GBR 

PRINT " NOTE THE TIME TAKEN TO RUN LINES 100-120, COMPARED" 

PRINT * WITH LINES 300-320, NEARLY 4x AS LONG. THE SAME DELAY" 
PRINT “ OCCURS WHEN USING 1,2,0R 3 DIMENTIONED ARRAYS TO A" 

PRINT " SMALLER DEGREE. САМ YOU SUGGEST а SOLUTION 50 THAT" 

PRINT " THIS DOES NOT OCCUR ¢ WHILE KEEPING THE FILLED ARRAY 9?" 

1 -- ié COLOR IN MODE © " HARDWARE CHECK -- FLST V2.2 


REM 16 COLOR IN MODE G ~ HARDWARE CHECK 
MODE О:РКІМТ CHRS(12):COLORT 8 O 8 O:FOKE #75,4SC("!'"):0= 
(PEER (#246) TAND SFO) SHL 8 


АФ- 
“ABCDEFGHIJELMNOPORS TUVWXY Zabcdefghi jkl mnopar stuvex yzO12345 
а”? за 
FOR L-o ТО 22:C-O-HFEF-HB86xXL:PDKE C-1,#48:FOKE С, ФА 

1 FOR D=C-3 ТО С-155 STEF -2:РОКЕ р, (2 SHL 4)+8 


2=(7+1) MOD 16:NEXT:PRINT A$:NEXT 
FOR М-О TO 9: A$="## DAI PERSONAL COMPUTER ##":LE=LEN (A) = Ме 


i LE/2 
i FOR T=0 TO МіРКІМТ TAR(O29—T) MIDE (АФ, M-T, ТАТ): NEXT 
i FOR асо ТО 2:PRINT TABR(29)3 "А": МЕХТ:РКІМТ TAB(27) ; "AAAAA": 
і PRINT : PRINT :РКІМТ 
NEXT:FOR 4-7 TO 18: РОКЕ O+#FEF-#86*A, #FO+I:J=(J+i) MOD 16: 
NEXT 
FOR А=0 TO 23:PRINT TAR(AKI. 5); "ABCDEFGHIJKLMNOIFORST":NEXT: 
FOR А=15 ТО 22:PRINT * "sSNEXT:GOTO 110 








Dear Mr. Hards... 





problem по 1 

Your second loop is so much slower,because BASIC needs some free Space 
in the HEAP to execute the CHR$( )-command.( ref : problems mentioned іп 
the program FORMAT-LISTING newsletter 2 p.17). 

If a lot of space in the HEAP is already used by your array, 

the search for free space takes longer ... that’s all. 

We can solve this by using ТФЕСНЕФ (127) as in line 10. 


problem no 2 
You could have more than 24 lines of mode O,but you will have to 
arrange  : — initialisation of the screen ram 

~ use your own screen handler for mode 0 


problem no 3 
In the handbook on p.17 we find the following table : 
bits 7&6 of line control byte: 


оо four colour graphics 

o1 four colour characters 

io sixteen colour graphics 
11 sixteen colour characters 


In the earlier machines ,the last data (#FA in control byte) only 
gave the effect of useless garbage on the screen.This was due ta 
some wrong layout of the circuit board. 

You can check your circuit with the program "16 COLOR IN MODE Q. 

We will publish the modifications in our next issue, together with 
the schematics of the video circuit as supplied by Mr DE HOOG 

and Mr VAN LEEUWEN. | 


G=GETC :G=GETC :G=GETC 





1 の の の G=GETC: WAIT TIME 5: IF G= GOTO 1006 


This line is mostly used, when waiting for a GETC-command. 
The WAIT TIME is recommended in the Dai-handbook, before 
otherwise, when you're pressing акеу, this key is бо be 
scanned more than once, 

But most people, when pressing a key, look to the screen and 
wait for a feedback. So they are filling up the key-memory 
-this holds the first tree keys-. By then it is possible to 
see the expected routine 4 times, . 

To avoid this we have to empty the key-memory, every time, 
before asking a decision to the user. You can do this by 
using the function GETC 4-times as a dummy. So the key-memory 
will be emptied. 


1 の の の G=GETC :G=GETC : G=GETC 
1 の 1 の G=GETC: IF G= の GOTO 1010 
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Steeds meer tijdschriften beginnen met regelmatige DAI rubrieken of 
op z’n minst toch een artikeltje over de DAT Р.С... 
Onlangs verschenen er artikels i.v.m. de DAT іп o.a. : 

* Test Aankoop 

% Databus 

£ HCC Nieuwsbrief 

* L'Ordinateur Individuel 

Ж Personal Computer World 


1) Opmerkelijk is het artikel dat in Test Aankoop van November verscheen. 

Onder de titel "Help, een computer in huis" worden 11 huiscomputers 

getest nl. ATOM ACORN, AFPLE II Europlus, COMMODORE PET 4016N, 

DAI, ITT 2020, SHARP MZ-BOK, SINCLAIR ZX 80, SINCLAIR ZX 81, 

TANDY mod.1/lev.2, ROCKWELL AIM 65-1415 en SHARP РС 1211. 

: De 3 beste kopen zijn volgens ТА de SINCLAIR ZX 81 als eerste 

kennismaking met microcomputers, de DAI als beste huiscomputer 

en tenslotte de TANDY TRS 80 voor kleinere budgetten. 

1.у.т. de DAI citeren we letterlijk 
"de DAI bleek de beste huiscomputer van de 11 geteste modellen, 
wie aan dit toestel z’n vrije tijd wil besteden zal wel 
46.741 fr. moeten neertellen. Maar daar krijg je dan ook heel wat 
voor: 48 K geheugen, 16 kleuren, een muzieksynthesizer, goede 
tot zeer goede Basic en in/output;" і 

Commentaar is voor de DAI fanaat overbodig. 


2) In DATARUS van 19 OKT 1981 zijn 2 artikels belangrijk voor 


, DAl-gebruikers. 





a) BASICODE voor DAI door Th. van LIESHDUT. 
b) Wat is wat in BASIC (vergelijking tussen 6 dialekten) 


_ a) BASICODE is voor de meesten wellicht geen onbekende meer,. 

toch willen we in het kort even trachten samen te vatten waar het 

om gaat. De cassette lees- en schrijfroutines zijn voor bijna alle 
populaire microcomputers verschillend. Dit maakt het uitwisselen van 
standaard BASIC programmas zeer moeilijk. De NOS was geconfronteerd 
met een dergelijk probleem voor de Hobbyscoop uitzendingen. 


I. Tijdens die uitzendingen worden soms BASIC prgr's de ether inge- 








stuurd. Om geen 10 versies van hetzelfde prgr. te moeten uitzenden 
werd een nieuwe communicatiestandaard opgesteld. 

Voor de verschillende microcomputers moet dan een soort vertaalprgr 
geschreven worden. Feitelijk zijn dit nieuwe cassette іп & out 
routines. Voor de DAI werden deze prgr's geschreven door dhr. 

van Lieshout die zeer zeker knap werk heeft geleverd. 

Enkele opmerkelijke eigenschappen van de HASICODE prgr's: 

de BREAK-toets blijft actief ook tijdens het inlezen, dit іп 
tegenstelling met de gewone DAI LOAD. Het gedeelte van het prgr. 
dat dan al ingelezen is Кап geLIST en geRUNd worden. 

In het artikel worden cok enkele optionele hardware modificaties 
voor de cassette in- & output gegeven. We hebben echter geen 

enkel probleem ondervonden met onze standaard interfaces. 


b) Het tweede artikel in DATABUS, door J. van EGDOM geschreven 
vergelijkt de BASIC-dialekten van de Apple II, DAI, Exidy Sorcerers 
 PET/CBEM, P2000 en TRS 80. Een dergelijk overzichtje is o.a. 

zeer nuttig wanneer men BASICODE prgr's wil schrijven. 

Deze moeten nauurlijk in "standaard BASIC" geschreven worden. 
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3) In de laatste nieuwsbrief van de НСС ( nr. ZX dis eveneens een prgr. 
voor de DAI gepubliceerd. Onder de hoofding DAI-Hernummeren wordt een 
zogenaamde renumber, in BASIC geschreven door Th. M. BROS, voorgesteld. 
Een goed hernummeringsprogramma hernummert niet alleen de regelnummers 
maar Ook alle verwijzingen naar regelnummers in bvb. GOTO linenr. < 
GOSLIB linenr., IF condition THEN linenr., ОМ expression GOTO linenr.1l, 
linenr.2,..,. enz., enz... Het prgr is zo'n 58 lijnen lang en modificeert 
volgens dhr, Bos GOTO, GOSUE, IF THEN GOTO en IF THEN GOSUB. IF THEN linenr. 
worden niet hernummerd. Bij dit alles willen we toch enige critische 
opmerkingen plaatsen. 
а) Het feit dat ON GOTO en ON GOSUE alsook IF THEN niet worden aangepast 
maken van dit prgr. geen "veilig" prgr.. Alle prgr*s zullen dus 
niet carrect hernummerd warden. 
Б) Het prgr. kan op vele manieren verbeterd worden. 
Vcoreerst moeten alle variabelen geinitialiseerd worden. Voor BASIC V1.0 
is dit niet nodig daar ook een RUN linenr. alle variabelen ор Ө тек, ` 
doch met BASIC V1.1 is dit wel nodig. Dan worden de veranderlijken 
alleen geinitialiseerd door een RUN zonder linenr.. 
с) Indien slechts een deel van het рғағ. moet hernummerd worden 
dan moeten tach ALLE referenties naar lijnnummers nagekeken en 
eventueel aangepast worden. Op het eerste zicht gebeurt dit niet. 
d) Het prgr. zal makkelijk "crashen" door onbestaande lijnnummers 
ор te geven voor bvb. oude laatste lijn. Een iets veiliger manier 
om het prgr. te doen stoppen: 64120 IF LOX(ZZ) зе Lay THEN 464140 
e) Er kunnen met het voorgestelde prgr. niet meer dan 256 lijnen 
hernummerd worden. Deze beperking vloeit voort uit de maximale 
dimensie van array's. Een mogelijke manier om dit op te lossen is 
door PEEK en FOKE. 
f) Een trucje om het prgr. te versnellen: 
bvb. lijn 64100 ....:PO02Z-L3*4-FOL1XX256:... kan vervangen 
worden door e РОИ СИ MOD 2563... 
Men wint ongeveer 1 sec per 1000 dergelijke statements. 
а) De oude startlijn wordt bij het begin gevraagd doch er wordt 
niets mee gedaan: het hernummeren begint van in het begin. 
Besluit: een prgr. dat met de grootste omzichtigheid moet gebruikt 
worden! Het is misschien beter dan niets maar 2 maal nakijken van 
het resultaat is zeker nodig. 
Het is overigens zeer moeilijk om een redelijke renumber te 
schrijven voor de DAI: door de zeer compacte stockering van de 
ргаг'в in het geheugen is het moeilijk te weten hoe lang een 
expression bvb is. 
Moge deze opmerkingen niet verhinderen dat er in de HCC niedÉbrief 
nog DAI prgr's zouden verschijnen! 


4) Ор рад. 171 in L'Ordinateur Individuel staat een klein рға. 
geschreven daar Christian FOELS voor de DAI. Het prgr. is slechte 
8 lijnen lang en bootst het effect van een generiek na. 

Het kan best vergeleken worden met een wit blad papier dat ap 

een gedrukte tekst gelegd is en dan langzaam naar beneden wordt 
geschoven zodat de letters van boven naar beneden zichtbaar 
worden. Dit wordt bekomen door wat te "spelen" met de screen 
contralewoorden. Het effect mag zeker gezien worden. 
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5) Het laatste tijdschrift dat we deze maand zulin bespreken 

is Personal Computer Warld, afgekort FCW. Hierin verschijnt sedert 
kort een regelmatige rubriek verzorgd door Alan SUTCLIFFE. 

PATTERNS is de naam van de rubriek die geillustreerd wordt 

met voorbeeldjes ор de DAT. In het nummer van november wardt 
nagegaan wat de kwaliteit іш van de willekeurige getallen 

door de DAI gegenereerd. Ор de vraag "HOW RANDOM IS RANDOM?" 

tracht алғ. Sutcliffe te antwoorden door test=prgrs voorgesteld 
door het NES (National Bureau of Standards uit de USA) ap de 

DAL te laten lopen. Achter deze testprogrammas steekt een diepe 
theoretische statistische achtergrond. Het is echter niet de 
bedoeling deze hier uit de doeken te doen. De besluiten zijn op 
zichzelf al interessant genoeg. De test ор de gemiddelde waarde van 
de willekeurige getallen tussen О en 1 is zonder meer bevredigend zowel 
vaar de hardware als software toevalsgenerator. 





Het de verdelingsfunctie ligt het wel anders. 

Theoretisch zou deze een rechte moeten benaderen. Voor de software 
rnd-qenerator is dit ook ғо. De hardware rnd-generator blijkt 

echter veel slechter te zijn op dit gebied, althans tach op het 

toestel van Alan Sutcliff. Hier bleken sterke pieken bij O, 1 en 

0.5 ор te treden! Het zou interessant zijn te weten of dit op alle DAI's 
het geval is. Het programma om de verdelingsfunctie te tekenen 

is terug te vinden in dat nummer wan FCW, 


10 dit was het voor deze maand, Laat ons hopen dat de interesse 
vaar de DAI in dezelfde mate blijft toenemen, het kan de DAál-users 
alleen maar ten goede komen! 


In Kilobaud Microcomputing van december 1781 wordt de DAI eveneens 
vernoemd. Naar mi jn weten is het de eerste maal dat in een amerikaans 
tijdschrift gewag wordt gemaakt van het bestaan van de DAI. 

Het betreft geen uitgebreide test o.i.d. doch wel een zeer bondige 
samenvatting van de belangrijkste kenmerken. 

in Engeland is FCW (personal computer world) waarschijnlijk 
het tijdschrift dat de meeste aandacht besteedt aan de DAI. 

Dit voornamelijk door de artikels van Alan Sutcliffe (de reeks 

"FATTERNS":. Gok deze maand (januari 19862) waren er weer twee 
programma’s voor de DAI bij. 

Het eerste last een domino vraagstuk op. Dit naar aanleiding van 
de twee vorige artikels over Кеп Enowlton, een artist die de 
computer aanwendt voor het ontwerpen en maken van zijn grafische 
kunststukken. Zo maakt hij ander andere digitale beelden met 
dominos. De vraag stelt zich dan natuurlijk op hoeveel manieren 
een aantal domino-sets op een nXm rechthoek kunnen geplaatst 
worden. Voor een meer nauwkeurige omschrijving van het probleem wordt 
verwezen naar PCW van december 1981 en januari 1787. 

Het tweede programma is een soort SGT (standard graf text of slow 
graf text dit in vergelijking met FGT). 
foals u al kunt vermoeden kan men met dit programma lettertekens 
in grafische mode op het scherm plaatsen. 

Er wordt in dat programma geen gerbruik gemaakt van DOT of DRAW 
Commande (zoals in de oorspronkelijke DAINAMIC graf-text en zoals 
te vinden is in de DàI-manual? daar deze te traag zi jn. 
in piaats daarvan worden de noodzakelijke bitcombinaties 
rechtstreeks in video-ram ge-FÜEE-d. Het programma waarvan de listing 
in FCW staat kan alleen 10%" R " ар het scherm schrijven doch 
het programma kan gemakkelijk uitgebreid worden tot het hele 
alfabet en andere te definieren symbolen. 19 











De routine is voor 4-kleuren mode uitgewerkt en laat alleen toe 


dat lettertekens op een pixel starten dat een x-coordinaat heeft 


dat een geheel veelvoud is van B. 
Verfijningen zijn dus zeker en vast mogelijk. in elk geval 
biedt het artikel een goede vertrekbasis voor wie zelf iets 


dergelijks wil proberen. Verwacht echter niet om sneller dan FGT 


te kunnen werken! 


Een ander interessant artikel in PCW van januari 1982: Inside the 


interpreter. Er wordt wat dieper ingegaan op de 

interne werking van een interpreter. Met dit inzicht is het 
dan mogelijk snellere programma's te schrijven. 

Veel van wat in dat artikel wordt uit de doeken gedaan is 
toepasbaar ор Че DAI. Een goed middeltje om de programma’s te 


versnellen іс bvb de meest gebruikte routines vooraan te schrijven. 


De grootte van de regelnummer is niet belangrijk maar wel zijn 
plaats in het BASIC-programma. 


ВУТЕ van december 1981 is bijna volledig gewijd aan computer 


games. Voor de spelletjes-fanaten is dit nummer van BYTE zeker een 


must. Verder is er een 80 bladzijden tellende BYTE cumulative 
index (van september 1975 tot december 1981). 

Ook bijzonder interessant is een programma voor automatische 
programma generatie. Deze tendens is de laatste ti jd bijzonder 
in trek denken we alleen al maar aan de "last опе" en "pearl". 
Het programma in BYTE is oorspronkeli jk geschreven voor de 
Apple maar kan zeker en vast aangepast worden voor de DAI. 

Het programma genereert overigens alleen input en output (met 
range checking) en output van tekst. 

Dit nummer van byte was weer 545 bladzijden dik met iz 
hoofdartikelen, 6 reviews en een tiental kleinere rubrieken. 
Mijn postbode vergeeft het BYTE nooit. 






REM HOW RANDOM IS ROM > 
MODE 6:COLORG O 15 15 15 
DIM V(255) 

FOR X-4COOO TO #DFFF 


NEXT 


Hiz PERSIS EEEE IEE e 





P-PEEK(OX):V(CP)-U(CP) H1: IF V(P)<335 THEN DOT 





ViP),P 15 


5 == "BRAPHIC"DEMONSTRATION +++ Markus Sigg 7/81 -- FLST V2.2 


REM 'GRAPHIC"DEMONSTRATION +++ Markus Sigg 7/81 +++” 

FOKE #FFFS,#10:POKE #131,1 

CLEAR 3OOOsP!-2XPI:R-RND(-RND(O)):COLORT 8 2 O O: MODE O: 
PRINT CHR$(12) 5" 

DAI-GRAFHIK-DEMONSTRAT IONSPROGRAMM" : PRINT 

PRINT "Tastenbelequng:":PRINT 

PRINT " "^? Zufallslinien "kr Rechteckschlangen 1" 
PRINT " "В" Kaleidoskop “|” Rechteckschlangen 2" 
PRINT " "С" Ellipsengraphik i" 

„PRINT " "Dr Ellipsengraphik 2" 

PRINT " "E? Lissajous i" 

PRINT " "Р" Lissajous 2" 

PRINT " 5” Polygone" 

PRINT “ "Hi Sternzeichner" 

PRINT " "І? n-Eck-Dreher" 

PRINT "7017  Quaderzeichner":PRINT 

PRINT " "TAB? andere Zufallsfarben":PRINT " "5РАСЕ" 

neuer Start des gesamten Programmes" 

PRINT " ”2,4,87 Graphikmodusaenderung + neuer Start des": 
PRINT " jeweiligen Teilprogrammes" 

PRINT " "Р? Druckerausgabe (MODE 6)":PRINT SPRINT 
"Welches Teilprogramm wuenschen Sie 2"; 

POKE #2C3,0:G=GETC:IF G«65 OR 6>76 THEN 80:PRINT CHRS(G): 
PRINT :PRINT "In welchem Modus soll Programm "; СНКФ (5); " 
laufen 7"; 

M=GETC: IF М<>50 AND М<>52 AND М<>54 THEN 90: MM-9:C1-8:C2-1: 
C3=3:C4=5:GOSUB 60000:0N 6-64 GOTO 1000, 2000, 3000, 4000, SOOO, 
6000, 7000, 8000, 9000, 10000, 11000, 12000 


REM * Zufallslinien | ; 
X1=RND (ХМАХ) : Y12RNDCYMAX) : DRAW ХО,ҮО X1,Y1 21:DRAW XO,YO X1, 
Y1 22: X0=X1:YO=V1:GOSUB 61000:IF MM=32 THEN 1:GOTO 1010 


REM ” Kaleidoskop 

| C=21+RND C3) : X12RND (XMAX) : Y1-RND СУМАХ) 
DRAW XO,YO X1,Y1 C:DRAW ХМАХ-ХО,ҮО XMAX-X1,Y1 C: DRAW ХО, 
УМАХ-УО Х1,ҮМАХ-Ү1 C:DRAW XMAX-XO,YMAX-YO XMAX-X1,YMAX-Y1 C: 
XO-X1:YO-Y1:GOSUB 41000: IF MM=32: THEN 1:GOTO 2010 
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3000 REM 7 Ellipsengraphik 1 

3010 FOR І!-0.1 ТО Р! STEP 0.1:ХО-Х:ҮО-ҮМАХ-1:ҒОН J'-I! TO P:+I: 

C 2 STEP I'z:X1-X*XX*SIN(GI 2): Y1-Y-YXCOS GI ! ) : DRAW XO,YO X1,Yi 7! 
С 2 X1:YO=Y1 

3020 GOSUB 61000: IF MM=M THEN 3010:IF MM=32 THEN 1:NEXT:NEXT:GOT^ 
C 3010 





4000 REM 7 Ellipsengraphik 2 

4010 RX=RND CYMAX/4) : RY-RND CYMAX/4) = X=RX+RND CXMAX—Z2XRX) = Y=RY+ 

C RND (YMAX—24RY) :C=21+RND (3) 

4020 FOR I!=0 TO РІ STEF O.12z:DX-RXX*SIN(CI!):DY-RYECOSG(I!'):DRAMW X4 

C 1 DX,Y+DY X-DX,Y-DY C:GOSUB 61000: IF MM-M THEN 4010: IF MM=32 

C THEN 1:NEXT:GOTO 4010 

5000 REM 7 Lissajous 1 

5010 DIM X(2),Y(2):FOR I-O TO 2: X CI) =RND(XMAX) = Y CI) =RND (YMAX) : 

с NEXTsFI!=RND (PI) : VERND CX) : W=RND CY) : A=RND (10) z B=RND (10) 

5020 FOR X!=0 ТОР! STEP S!:X0=X+VkSIN(AXKX!) s YO=Y+WKSIN(BEX'4+FI!): 
с 1 FOR I-O ТО 2:DRAW XO,YO X(I),Y(I) 21+I:NEXT:GOSUB 61000: IF 
C MM-M THEN 3O10:IF ММ-52 THEN 1:NEXT:GOTO 5020 
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REM 7 Lissajous 2 
V1i'-RND(P!):VZ2!-RND(P!)zVS!-RND(GP!)zV4'-RNDGP!2 zW1'—-RND(P!): 
W2'-RND(P!D)zWZ!'-zRND(OP!)z:UuWA4'-RND(P!) 

FOR I'=0 TO P! STEP S!:DRAW X-XXSIN(CI'!XUV1!'-W1'0,Y-4 
YXSIN((OI!XU2!c-W2') X-XXSINCI!XVEX!-WS!),Y-YXSINCOI!£VA!c-WA!) 21+ 
SXI!/F! 

GOSUB 41000: IF MM-M THEN 6010:IF MM=32 THEN 1: МЕХТ: СОТО 6020 








7000 REM 7 Folygone 
7010 INPUT "Zahl der Ecken ";N:IF М1 THEN 7010 
7020 БОСОВ 60000:DIM X(N),Y(N):N!=P! /N:FOR I-1 TO N: X (I) =X+ 
С ҮЖЅІМ(ІЖМ!) :Ү(І) -УКУЖСОБ (ІЖМ!) z£ NEXT 
7030 FOR Ісі TO N-1:FOR Ј=1+1 ТО N:DRAW X(I),Y(I) X(J),Y(J) 21: 
с GOSUB 41000: IF MM=M THEN 7010:IF MM=32 THEN 1:NEXT:NEXT:GOTO 
С 7050 
2 8000 REM ” Sternzeichner 
z 8010 INPUT "Zahl der Ecken ";N:PRINT :IF М<1 THEN 8010 
8020 INPUT "Schrittweite ";S:PRINT ES 
8050 INPUT "Schrumpfungsfaktor (<=1) ";F':PRINT :IF F!>1 THEN 
C 8030 
8040 GOSUB 60000:UW!zY:N!-P'/N:A-0O: XO=X: YO=YMAX 
8050 X1=X+W!*XSIN CAEN!) Y1i=Y+W! XCOS (АЖМ!) : DRAW ХО,ҮО Х1,Ү1 21:Х0= 
с X1:YO=Y1:ñ=(ñ+S) MOD N:W!-W'XF!:GOSUB 61000: IF MM-M THEN 
С 8010:IF MM=32 THEN 1:G0T0 8050 
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9000 
9010 
9020 
9050 


9040 
9050 
9060 
9070 
9080 


9090 


10000 
10010 
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10030 
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10040 


10050 
10060 


10070 
10080 


10090 


11000 
11010 


11020 
11050 
11040 
11050 
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REM 7 n-Eck-Dreher 
INPUT "Zahl der Ecken ";N:FRINT :IF N<1 THEN 9010 
INPUT "Drehwinkel (Grad) ";D!:PRINT :D'-D'£*PI/180:DD'-D' 
INPUT "Schrumpfungsfaktor (£-1) "SF'!zPRINT :IF F!>1 THEN 
9OSO:PRINT "( "RETURN? = Zeichnen beenden )"s:WAIT TIME 100 
GOSUB 60000:W!-Y:S!-p!/N 
XOzX*W'XSIN(GDD!):YO-Y-W'!XCOS (DD!) zC-214 (C41) MOD 3:FOR I'- 
DD!+S! TO Pippi STEP S':Xi-X-W'XSIN(I!D):YI1-Y4W!ECOS(I!): 
DRAW XO,YO X1,Y1 C:XO-Xi1:YO-Y1 
GOSUB 61000:1F MM-M THEN 9010:IF MM-z2 THEN 1:ІҒ MM=13 THEN 
9070: NEXT:W'!-W'XF':DD'-DD'«D':GOTO 9050 
FOR I-20 TO 2 STEP -1 
COLORG Ci C2 C3 CA:WAIT TIME I:COLORG C1 CA C2 CS:WAIT TIME 
I:COLORG Сі C3 C4 C2:WAIT TIME I:GOSUB 61000: IF MM=M THEN 
SOLO: IF MM=32 THEN i:IF І-? THEN 9080 


NEXT 
SR 


же з === 





REM 7 Quaderzeichner 

FX-RND CXMAX) : FY-RND СУМАХ) : DIM FX ( さ ) 。PY ( さ ) ,0X ( さ ) „OY C3) 

PX (O) =RND (О. 9ЖХМАХ) : PY (O) =RND (О. 9ЖҮМАХ) 

B=RND (XMAX-PX (0) ) /2+XMAX/20: H-RND (ҮМАХ-РҮ (0) ) /24+YMAX/20:Q!= 
RND (O. 2) +0.2 

PX (1) =РХ (O) +B:PY (1) =PY (O) PX (2) =PX (1) = PY (2) =PY (0) +HE PX CE) = 
PX (О) «РУ (3) «РУ (2) 


FOR I-O TO 3:QX(I)=PX (1) *(1-Q!') 4FX¥O!:QY CD =PY (I) &C1—G!04 
FY%0! : NEXT 

FOR I-O TO 3:DRAW OX(I),QY(I) QX((I+1) MOD 4),QY((I+1) MOD 
4) 21:МЕХТ 

FOR I-O ТО 3:DRAW PX(I),PY(I) OXI) ,QY(I) 22: МЕХТ 

FOR I-O TO 3:DRAW PX(OD,PY(OD PX((I+1) MOD 4),PY((I+1) MOD 
4) 23:NEXT 

GOSUB 61000:IF MM-M THEN 10010:IF MM=32 THEN 1:60T0 10020 


REM * Rechteckschlangen 1 

XS-RND CXMAX / 5) : YS=RND (СУМАХ /5) : DX=RND C10) z DY=RND (10) : XM= 
XMAX-XS: YM=YMAX-YS 

FILL X,Y X+X5,Y+YS Zi+(X+Y) MOD 2 

X=X+DX:IF X>XM OR X«O THEN DX--DX:GOTO 11020 

Y=Y+DYs IF Ү>ҮМ OR Y<O THEN DY--DY:GOTO 11040 

GOSUB 61000: IF MM=M THEN 11010:IF MM-32 THEN 1:GOTO 11020 
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REM ° Rechteckschlangen 2 : i 

XS-RND (ХМАХ/5) : YS=RND (YMAX/5) : DX=RND (10) : DY=RND (10) = XM= 
XMAX—XS: УМ-УМАХ - У5 

C=21+(X+Y) MOD 3:DRAW X,Y X+XS,Y C:DRAW X+XS,Y X+XS,Y+YS C: 
DRAW X+XS,Y+YS X,Y+YS C:DRAW X, Y+YS X,Y C 

X=X+DX:IF Х>ХМ OR X«O THEN DX--DX:GÜTO 12050 

Y=Y+DY: IF Y>YM OR Y«O THEN DY=—DY:GOTO 12040 

GOSUB 61000:1F MM-M THEN 12010:1F MM=32 THEN 1:GOTO 12020 

IF М=50 THEN MODE 2 

IF M-52 THEN MODE 4 

IF M-54 THEN MODE 6 

IF PFL=O THEN Х-ХМАХ/2:Ү-ҰМАХ/2: XO-RND (XMAX) г YO=RND СУМАХ) :S!= 
ЗЕ-2 

COLORG Ci C2 C3 C4:RETURN 

MM=GETC: IF ММ-О THEN RETURN 

IF ММ-50 OR MM=52 OR MM=54 THEN M=MM:GOSUB 60000 

IF MM=9 THEN C1=RND (16): C2=RND (16) z C3=RND (16) z CA-RND (16) : 
COLORG Ci C2 C3 C4 | 

IF ММ<>80 THEN RETURN 

RESTORE:FOR K=#4000 TO #4097:READ D:POKE K, Ds NEXT 

DATA RUS, HOE, #FB, #21, #00, HOO, #11, HAF, #40, #D5, #16, #07, #06, #80, 
CD, #79 

DATA #82, #4F, #05, ТЕР, #27, 8D1, fC1, #DA, 456, #40, FE, #08, HCA, #36, 
#40, #79 

DATA НГЕ, SFC, #С2, 82B, #40, 87A, BFE, #04, #DA, #36, #40, HAF, #ЗЕ, #80, 
#5A, #1F 

DATA #1D, #C2,#2F, #40, #80, #47, #15, #C2, HOE, #40, #78, #D1, #12, #13, 
#23, #7A : 
DATA HE, #42, #02, #09, #40, 811, AF #40, #21, HBO, #40, 405, #01, 810, 
#ВЕ, #C2 

DATA HSA, #40, #04, #CA, #67, #40, #23, HCT, ВДЕ, #40, #78, #FE, #03, DA, 
#79, #40 | 

рата HEE, HOD, #C2, #67, #40, #05, #2B, &XE, 1C, #CD, #94, #DD, #78, HCD, 
#94, HDD ! 
рата HIA, СО, #94, #00, HES, #D1, #C3, #81, #40, #D5, HEL, #7E, CD, #94, 
HDD, #13 

DATA #25, 825, W7C, FE, #42, #02, HAB, #40, #3E, #00, #CD, 4894, HDD, #3E, 
#F9, #81 

DATA #4F , #FE, ЯРУ, C2, #05, #40, #01, #09 

C1=8:C2=8: C3=8: C4=8 

COLORG 8 O В 8:GOSUB 43100: C2=C: GOSUB 63200 

COLORG 8 8 о в: GOSUB 63190:C3=C:GOSUB 63200 

COLORG 8 8 8 O:GOSUB 63100:C4=C:GOSUB 63200 

PRINT CHR$(12);"Drucken <J/N> 7?" 

G-GETC:IF GO THEN 63050 

IF G=74 THEN POKE #131,0:PRINT CHR$ (#14) ; CHR$ (B) : PFL=1:GOSUB 
60000: PFL=0:CALLM #4000: POKE #151,1 

RETURN 761 

PRINT CHR$ (12) ; "Diese Linien drucken <J/N> ?":C-g8 

G-GETC: IF G=0 THEN 63110:IF G=74 THEN C=0 

RETURN 

PRINT CHR$(12);"Bisheriges Gesamtbild ^" 

COLORG C1 C2 C3 C4:WAIT TIME 90: RETURN 
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SEIKOSHA GP-80 


MX—100 


GELUKKIG 
NIEUW 


ЖАЗ Jaor 


SCREENCOPY OF SEIKOSHA GP-88 from Daniel Theys 














GAMES COLLECTION 1 
GAMES COLLECTION 2 


GAMES COLLECTION 3 


GAMES COLLECTION 4 (ті) 


GAMES COLLECTION 5 


` CAMES COLLECTION 6 
GAMES COLLECTION 7 


ASSEMBLY PACKAGE 





B FAST GRAF TEXT ЕСТ 


FGT APPLICATIONS 1 


B. TOOLKIT 1 


PRIMARY EDUCATION 1 


SECUNDARY EDUCATION 1 


SECUNDARY EDUCATION 2 





" TOOLKIT 2 





Yathzee,Awari,Submarine,Kanonspel, 


Othello,Startrek,Reactietest,Lunar landing, 
Vier op een rij 


Surround,Break-out,Amazing,Kim Cache, 
Mastermind,Geitenspel,Space invaders, 
Hannibal 2000,Towers of Hanoi 


Backgammon,Barricade,Moeras,Snake, 
Poisened cake,Invasion,Robots,Traffic test 


Football,The Car,Break-out,Gompy, 
Space invaders 


Atomic Attack,Zich-zagger,Rat maze, 
Dom dam,Tic-tac-toe,Life(ml),Katz&Mause 


Rubic Cube(m1),3-dim Maze,Bridge-building, 
Gomuku,Verborgen tekens ,City Bomber, 
Space Game 


Blackjack,Androidenkaefig,Booby-traps, 
Communicerende vaten,Carpenters Mystery, 
Breinkraker,Auto-course 


Assembler-Editor-Loader-Disassembler 


Table Creator,Word Game,Pictures+Minuscules, 
Shadow,DAI Character set,Greece,Trigisch, 
Math Symbols,Morse,Russian,Heavy style, 
Computer characters + source FGT 


Horner alg.,555 Quick design,Math comp, 
TV-tennis,Superwurm,Mastermind,Clock 
training,FGT-paddles 


Renumber,Format listing,Data statements 
generator,Labeljumps + sources 


Universal Math-trainer,Clock,Math comp, 
Technical reading,visual discrimination, 
missing letter,pictographic reading 


Matrixproduct,3X3 Determinant, Triangle- 
Algorithm,Volume of box,Area-computing, 
Y=A.SIN(B.X+C),Examen sine,cylinder, 


Horner alg.,Darboux-sums 


Bewerkingen met functies,functie-onderzoek, 
le en 2e afgeleide, getallenleer+animatie, 

demo getallenleer,oefeningen getallenleer, 

Bord van Galton,meetkundige plaats, 

staande golf,lopende golf 


BASIC with abbrevations,Disassembler- 
relocator,screen copy MX 80/MX 100/SEIKOSHA 
auto-linenumber ,basicode,Cross reference 
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Nieuwe prijzen vanaf 15/2/82 New prices ....... 








TAPE PRIJS CLUB-PRIJS 
Games Collection 1 600 400 
Games Collection 2 600 400 
Games Collection 3 600 400 
Games Collection 4 1200 800 
Games Collection 5 ` 600 400 
Games Collection 6 XX 200 750 
Games Collection 7 ARA 900 750 
Assembly Package 2250 1750 
Fast Graf Text (FGT) 1400 1000 
FGT Applications 1 1400 1000 
Toolkit 1 1400 1000 
Primary Education 1 1400 1000 
Secundary Education 1 1400 1000 
Secundary Education 2 ххх 1400 1000 
Wordprocessor 1400 1000 
Mailing List 1400 1000 
Graphic Tablet 1400 1000 
Music Collection 1l 500 300 
Music Collection 2 500 300 
Music Collection 3 E E 500 300 
VIDITEL жжж 900 750 
TINY PASCAL ххх 1400 1000 
English-German trainer ***1400 221000 
DAI-DEMO'S + BASIC TUTOR***1000 500 
SARGON CHESS *** 2000 1500 
SPACE INVADERS ***1000 800 
Toolkit 2 ***1 400 1000 





ххх new package 


all prices include VAT & Mailing, Belgian francs 





‘all packages also available on DCR (+100 FR /tape) 








Roses レト で 
RUBIC'S CUBE bpesgt EH 
SE トト イル dell 
author : F.Drui jtf “44” 6222989 


А beautiful simulation of the aystery cube, 

with full caleur graphics in machine language. 

Let hia turn randoa, from keyboard or from a table ... 
This is the best cube available on microcomputer 1!!! 


3-DIM MAZE d 


ーーーーーーーー / 


S-DIMN MAZE 





Try te escape out of the maze... up to 256 rogas. x 
This is а superfast mare with many options, f 


BRIDGE BUILDING 


Help the Jaelies cross the river by sanipulating 4 bridges. 
Fast and frustrating ,beautiful sound & graphics. 


GOMUE LI 


Try to beat the coaputer's strategy ,.. 


VERBORGEN TEKENS (HIDDEN SHAPES) 


нохой 
HOTHK+ 
MNOS 20 Ж 


Try to hit the city-buildings, splendid graphics 
SPACE GAME 


author : J,Van Dunne 


Try to destroy the enemy ships,3 play levels 
nate : 66 & 67 exclusive copyright for Germany : 


TOOLKIT 2 


Variables atl@s + complete line reference 


BASIC WITH ABBREVATIONS 


Ali BASIC keywords with 2 characters only ! 
You can use your own list of key-wards 


DISASSEMBLER-RELOCATOR 


Screen сору routines for MX-80 11, 8X82, 
81100, ЗЕТКОВНА 


AUTO-LINENUMBER 


Automatic linenumber generation step 10, 
with on/off switch 


BASICODE 


The complete BASICODE-routines + sample files 


GAMES COLLECTION 7 


The casino card game, up to 3 players + banc 
Realistic presentation of cards and symbols 
Bet your money ready... 


ANDROIDENKGAEFIG 


The androids are dangerous, 
lack out for high tension. 
Animated graphics,realistic sound effects, 


COMMUNTCERENDE VATEN 





Which tank is not gk ? 
Watch and think, time is limited !!! 
CARFENTERS MYSTERY 


Solve the puzzle ... 
ar let the computer da it ! 


BREINKRAKER 


Try to arrange the blacks, 
misleading siaple ... 


COURSE 





Brive your car across the screen 
avoid ta crash ! 


GAI-CLUB Germany 

cie В. Seamer 

Üverwegstr 30 City Hause 
4650 GELSENKIRCHEN 


MUSIC COLLECTION 3 


Badinerie,Pnp corn, Slowrock, Borsalino, 
tian, Presto sonate 


iweistiamige inven 
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plications 
i har iter 
E thee Det alor text, 
cape,borsalina,4 ictures, poke-action 
cer a pet-P200ü ЗГЕ Lent 182,22. 
『 


super value 1!!! 


nt 
Sin glass 
réi 
ZA EI vam 
vuurtoren 
око 
VIE 
Borsalino 
2 
sorcerer-pet-P2000-1 
phic routines 
to the authors.. 


рмламс БУСЕЛ 


Westacerteck 
698621 





GLISH-GERMAN GRAMMAR TRAINER 


DAI 


E 





wel pa CH 


ж ж ж ж - 
ж ж ж ж = 
e ge - - к 
ми ми қи қи м 
ж є ж ж т 





d van informatie met dit prograama,de teleroonmadem ... en uw DAL 








Een wereld 
Alle ViüiTEL-faciliteiten komen op uw DAI tot leven, 
ーー Leal Ug Bit is versie 2.0, met meer dan 20 nieuwe commando’ 
ーー —= їв gevraagde, pla atjes kunnen bewaard worden en later weer 
opgevraagd, (+- 8 sec per plaatje op cassette). 
Het programma wordt geleverd met een 50-tal yvonrbeeldalaat je 
nieuwe collecties zullen regelmatig verkrijgbaar zijn. 
Kan aot zonder maden gebruikt worden oa plaat jes te creeren,op te slaan 
en Er ike 
r soi: ah standard for BILDSCHIRHTEXT & VIEWDATA 
ë sie kocht ар de HCC-daq kan deze ruilen 
š opsturen als bewijs} 





VERVAARDIGD VOOR FUSTES Si ` 
CONSUMENTENINFÜRMATIE што 
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DAInamic Software 





Dit programma laat toe twee functies met domein R in te voeren en biedt na- 
dien volgend menu aan: 

1. constructie van fl + £2 en f1-f2 

2. constructie van Ғ1.Ғ2 en f1:f2 

3. constructie van Ver en vez. 


De basisfuncties f1 en f2 worden ook steeds getekend zodat de verbanden tus- 


sen f1 en f2 en de bewerkingen hierop van het scherm kunnen worden afgelezen, 


De demo-functies zijn: fl: y= X +2 en f2: у-2-х 
2 
Het standaard-interval is : X-as: |-6,6Д Deze intervallen kunnen vanuit 


Y-as: [75,5] het programma gewijzigd worden. 


Met space-bar terug naar menu. 


2. Functie-onderzoek: didactisch hulpprogramma 


Dit programma laat toe een funetie in te voeren en vraagt nadien naar het do- 
mein en de asymptoten. De leerling voert zijn antwoord in. Het programma 
schetst de grafiek van de ingevoerde functie en houdt rekening met de door 

de gebruiker ingeovoerde informatie in verband met asymptoten en domein. In- 
dien hierin fouten zitten.... Op deze wijze is het programma een didactisch 
hulpprogramma bij de studie van functies. 


De demo-functie is у = cosx + 5 cos3x + s cos5x + т сов?х 


Assenstel met ijk zoals in vorig programma te wijzigen. 


2. Functie met 1e en Ze afgeleide 


Dit programma laat toe een functie in te voeren en tekent terzelfder tijd de 
grafiek van deze functie en van haar eerste en tweede afgeleide functie, 


De demo-functie is: 
_ \х+5)(х+3 ) (x-6) (x-1) (хо 
У 162 


Speelse aanbreng van enkele getallenverzamelingen en hun deelverzamelingen, 
Als de animatie ophoudt:space-bar. Het programma eindigt met 6 oefeningen op 


de geleerde theorie, Met sound. 


ге 


ng van vorig programma 


Dit programma laat de leraar toe zelf oefeningen te construeren, 
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7. Bord van Galton : mode 6 


simulatie van het bord van Galton in mode 6 
aantal vallende kogeltjes ingeven; cruk op TAB-toets 
teller geeft aantal gevallen kogeltjes aan 





na laatste kogel: met space-bar naar frequentieverdeling 


Space-bar:nieuwe run 


8. Bord van Galton : mode 4 


Punt per punt wordt de meetkundige plaats van m gegenereerd. Vooraf 5-maal 
space-bar; nadien automatisch, 
Gegeven :|twee rechten А еп В 

3 collineaire punten : a,b en c 


г loopt op A 


Gevraagd: meetkundige plaats van m 





Simulatie van een staande golf: aantal buiken in te stellen tussen 1 en 4 


11рорепде golf _ 


Simulatie van een lopende golf 


Alle programma's uitgezonderd nr.8,nr.10 en nr.11 maken gebruik van het FGI-pro- 
gramma met de tabel met de wiskundige symbolen. Dit programma staat vooraan op 
de tape en moet worden ingeladen vanuit UTILITY, 

Indien,nadat programma 10 of 11 gelopen heeft opnieuw een programma wordt uit- 
gevoerd dat gebruik maakt van de FGT-tabel moet deze vooraf opnieuw worden in- 


gelezen, omdat de programma's 10 en 11 een deel van deze tabel vernietigen, 


Met dank aan de heren B, Van Rompaey en К. Esveld 


E zamelen wa 





-4" 210 -21 ot 





Arok od . 
Y-4$1Hc 2541.85 
druk È 


druk З 








PRINT CHR$C42):PRINT "MENU: CONVERSIONS": PRINT 

PRINT "Pour choisir votre programme: " 

PRINT "appuyez sur la touche indiauee et puis sur RETURN. ": PRINT 
PRINT "CONVERSIONS: DEGRES CENTIGRADES-DEGRES FAHRENHEIT 1" 


PRINT " DEGRES FRHRENHEIT-DEGRES CENTIGRADES 2" 

PRINT * MONNAIES ETRANGERES | 3" 

PRINT " UNE BASE CUELCONGUE EN BASE 18 4" 

PRINT " BASE 18 EN UNE BASE QUELCONQUE 5” 
. INPUT A 


ON A GOTO 109, 209, 380, 544. 750 
PRINT "Се programme n'existe pas. Recommencez. ":GOTO 78 
PRINT CHR ま (12):PRINT "CONVERSION DEGRES CENTIGRRDES-DEGRES FAHRENHEIT”: PRI 


INPUT "Temperature en degres Centisrades: "; CZ: PRINT 

FZz9*C2/5432 

PRINT * з;СУ;" DEGRES CENTIGRRDES ="; РУ; " DEGRES FRHRENHEIT":PRINT 
B=1.@:G0T0 1888 

PRINT CHR$(12):PRINT "CONVERSION DEGRES FRHRENHEIT-DEGRES CENTIGRADES":PRI 


INPUT "Temperature en deares Fahrenheit: "РХ:РВІНТ 

Си-(ҒУ-322%5/9 

РРІНТ " "РУ; " DEGRES FAHRENHEIT ="; CZ; " DEGRES CENTIGRRDES":PRINT 
В=2. 6:6070 1888 

PRINT CHR#(12):PRINT "CONVERSION DE MONNAIES ETRANGERES ": PRINT і 
INPUT "Introduisez le cours du jour: "iC: PRINT i 


INPUT * Somme a convertir: ";S:PRINT | 
PRINT " Unite: F pour FRANCS" | 
INPUT * ET pour MONNAIES ETRANGERES”; Uf: PRINT i 


IF U#="F" THEN 388 

IF U#="ET" THEN 488 

PRINT "Precisez F ou ET uniauenment ":GOTO 348 

ET=S/C 

PRINT 6" F ="; ET; " ЕТ": В=3. 0: СОТО 1888 

F=S*C S 

PRINT $; " ET ="; Е; " F":B=3.6:G0TO 1888 : 

PRINT CHR$C42):PRINT "CONVERSION BASE 18 EN UNE BASE GUELCONQUE ": PRINT 

DIM ACLS. 8) 

Bf-"8123456789RBCDEF" 

INPUT “Donnez la base: "; C: PRINT 

INPUT "Donnez le debut et la fin de la table: "; D: INPUT F:PRINT x 

FOR IZ=D ТО F:PRINT 

GOSUR 638 | 

PRINT IZ: TABC42); | 

FOR [=] TQ 1.8 STEP -1.8 

PRINT MID$CB$, ACL), 15; 

NEXT L 

NEXT IZ 

PRINT :В-4. 8:GO0TO 1888 

I1212 

4121. 8 

QGzINTCIA42C0 

Ве11-0хжС 

14-8 

Ac Dek 

J=J+1. 8 

IF @>=C THEN 658 

At D= 

RETURN . 

PRINT CHR$:12. 690): PRINT "CONVERSION D'UNE BASE QUELCONQUE EN BASE 18":PRINT 
А 33 





768 
770 
?88 
?98 
888 
818 
828 
838 
84й 
858 
868 
870 
880 
838 
988 
318 
328 
18884 
1614 
1424 
1838 
1848 


INPUT "Nombre a convertir: "; US: PRINT 
INPUT "Base utilisee: "; C: PRINT 
N=LEN U$) 
D=8 @:R=@. 0: NZN-1. 8: N1-N: B$z "8123456789RBCDEF " 
FOR L=@.@ TO H 
` Mf£=MID$(U$, NI, 12 
Hi=N1-1. 8 
FOR J=ñ й TO 15.8 | 
IF M$=MID$CB$:. 1,1) THEN M=J:D=1.8 
NEXT J 
IF MCC AND Dz1.8 THEN 888 
PRINT "Valeur fausse. Ponner de nouvelles valeurs":GOTO 764 
PzM*C^L 
R=R+P 
NEXT L 
PRINT "Valeur decimale=";R 
В=5. 8:0070 1888 
INPUT * ENCORE UNE CONVERSION COUIZNON)": A$- 
PRINT :IF A$="QUI" THEN 1848. 
IF R$z"NON" THEN 18 
PRINT " REPONDEZ QUI OU NON":GOTO 1888 
DN B GOTO 118. 219, 310, 500.760 
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Enkele reistips: 
vanuit 005Т- en WESTVLAANDEREN: autostrade tot ANTWERPEN,dan 
AUTOSTRADE ANTWERPEN-HASSELT,af rit HERENTALS-OOST ‚dan richting 


. WESTERLO. 
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vanuit LIMBURG:autostrade tot GEEL-WEST,dan richting WESTERLO. 
vanuit BRABANT, ei BELGIE: зн. LEUVEN, AARSCHOT, WESTERLO. 
NEDERLAND 


over BREDA: autobaan ВВЕРА- ANTUERPEN,autobaan ANTUERPEN-HASSELT, 


afrit HERENTALS-DOST(OLEN),dan richting UESTERLO 
over EINDHOVEN: TURNHOUT-GEEL-WESTERLO 





100 
110 
120 
130 
140 
150 
140 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
500 
510 
520 
550 
540 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
380 
590 
600 
610 
620 
630 
640 





REM ЖЖЖ DRIEHOEKSVORMEN 

REM ЖҰЖ GESCHREVEN DOOR : CREATIVE COMPUTING 

REM ネネ ネネ ネネ ネネ ネネ ネネ ネネ ネネ MORRISTOWN, NEW JERSEY 

REM ЖЖЖЖ GEWIJZIGD DOOR : CORNEEL DE BONT 

REM X*X***QxoxbbbxkkbkXxx 24-11-1981 

MODE O:PRINT CHR$(12):COLORT 5 15 5 5:РОКЕ #75, 52 

POKE #BBBF,#5A:CURSOR O,15:PRINT "DRIEHOEKSVORMEN" 

CURSOR 8,15: РКІМТ "ЖХХЖХХЕХХАХХХКХХХЕКХХХ КККК ЖЖК" 
PRINT ТАВ (8) ; "ж 一 ネー -Ж- -%- -Ж- 一 ※ー f mf f kn ¥ Ж" 
PRINT ТАВ (8); "ж WILLEKEURIGE GRAFISCHE VOORSTELLINGEN Ж" 
PRINT TAB(8);"X 5555 5% 5 ————====kkkkK<<<< x" 
PRINT TAB(8);"X GEBASEERD OP DIVERSE DRIEHOEKSVORMEN. ж" 
PRINT TAB(8);"* —k- f f —X— -%- f f f —Ж— —k- Ж" 
PRINT TAB(8); SX RRERRK RAKE ARK KEKE RAE KER KAA EE KERR RK ERE ERE ER" 
CLEAR 8000 

DIM P(32.0, 32.0) 

FOR Ві=1.0 TO 320.0:FOR B2-1.0 TO 50.0 

P(B1,B2)-0.0:NEXT B2:NEXT ВІ 

CURSOR 10,5:FRINT “DRUK OP DE SPATIEBALK OM TE BEGINNEN "; 
IF GETC<>32.0 THEN 290 | 

MODE 4А: СО ОКТ 12 О О O:COLORG 12 9 3 O:XX=80.0: ҮҮ=50.0 
FOR X=50.0 TO 32.0 STEP -2.0:FILL ХХ-Х,ҮҮ-Х XX+X,YY+X O 
FILL XX-X*1,YY-X*1 ХХ+Х-1,ҮҮ+Х-1 12:NEXT X 

PRINT CHR ま (12) =FTLL XX-3O,YY—ZXO XX+30,YY+30 12 

PRINT "DIT PROGRAMMA GEEFT U DIVERSE TEKENINGEN, ALLEN GEBASEERD" 
PRINT "ОР DRIEHOEKSVORMEN. WELKE REPETERENDE BAZISVORM KIEST U 2" 
PRINT "ENKEL,DUBBEL OF VIERVOUDIG (E,D,V) 7 ";:PÜKE 875,95 
G=GETC:WAIT TIME 3:IF G=0.0 THEN 570 

IF G-ASC("E") THEN 0-1.0:0$-"ENKELE":GOTO 420 

IF G-ASC("D") THEN O=2.0:0%="DUBBELE":GOTO 420 

IF G=ASC("V") THEN 0-3.0:0$-"VIERVOUDIGE":GO0TO 420 

GOTO 370 

PRINT CHRS (12) 

CURSOR 10, З:РБІМТ "U KOOS DUS VOOR “;0%;" DRIEHOEKSVORMEN. " 
CURSOR 10,2:PRINT "HOEVEEL TIENDE WILT U ZWART LATEN (2-9)"; 
G=GETC: IF G<ASC("2") OR G>ASC("9") THEN 450 
0=6-48.0:07=ІМТ (9) :РВІМТ ОХ:РОКЕ #75, 52 

T=30.0 

ON O GOTO 510,720,860 

REM XXX CREER EN PRINT EEN DRIEHOEKSVORM 

REM *** ROUW EEN ENKELE DRIEHOEK OPTIE 1 

CURSOR 31,1:PRINT "30" e 

FOR R=1.0 TO T:FOR C=1.0 TO Т 

IF R=1.0 OR C=1.0 THEN 550 
P(R,C)=P(R,C-1.0) +P (R-1.0,C0):GOTO 560 

P(R,C)}=1.0 

NEXT C 

CURSOR 30,0:RZ=INT(R):PRINT RX; : NEXT R. 

REM ЖЖЖ PRINT TEKENING UIT 

FOR R=1.0 TO T:FOR C=1.0 TO T 

IF P(R,C)=0.0 THEN 640 

IF (P(R,C)/O)=INT(P(R,C)/G) THEN 640 

DOT XX+ ヒ ピー1 。 YYTR-1 O:DOT ХХ-С+1,ҮҮ+К-1 0 

DOT XX+ ピ ビー1 。 YYーR+1 Os DUT XX-C*1,YY-R41 o 35 
NEXT С:МЕХТ R | | 


